;;; keys.el --- Customize Global Keys 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; My global keys

(global-set-key [?\C--] 'toggle-truncate-lines)
;(global-set-key [?\C-#] 'goto-line)
;(global-set-key [?\M-#] 'goto-line)
(global-set-key [?\C-c ?\C-c] 'comment-region)
(global-set-key [?\C-c ?\C-u] 'uncomment-region)
(global-set-key [?\C-c ?g ?f] 'grep-find)
;(global-set-key [?\C-c ?g ?f] 'yisp-grep-find)
(global-set-key [?\C-c ?M] 'man)
(global-set-key [?\C-c ?!] 'yisp-toggle-ecb)
(global-set-key [?\C-, ?t ?s] 'yisp-visit-track-push)
(global-set-key [?\C-, ?t ?p] 'yisp-visit-track-pop)
(global-set-key [?\C-, ?r ?b] 'yisp-raise-buffer-to-new-frame)
(global-set-key [?\C-, ?z ?s] 'yisp-zap-white-spaces)
(global-set-key [?\C-, ?g ?f] 'yisp-grep-find)
;(global-set-key [?\C-, ?m] 'yisp-mark-word)
(global-set-key [?\C-, ?m ?f] 'yisp-mark-word-forward)
(global-set-key [?\C-, ?m ?b] 'yisp-mark-word-backward)
;(global-set-key (kbd "C-, s c") 'yisp-scp)
(global-set-key (kbd "C-, s s") 'yisp-scp-setup)
(global-set-key (kbd "C-, s p") 'yisp-scp-put)
(global-set-key (kbd "C-, s g") 'yisp-scp-get)
;(global-set-key [?\C-c ?, ?c] 'compile)
(global-set-key (kbd "C-, l t") 'yisp-enlarge-working-window)
(global-set-key (kbd "C-, f s") 'yisp-toggle-window-size-fixed)
(global-set-key (kbd "C-M-g") 'compile)
(global-set-key (kbd "C-M-z") 'compile)
;(global-set-key [?\M-o] 'other-window)

(global-set-key (kbd "C-M-o") 'other-window)
;(global-set-key (kbd "C-M-S-o") 'yisp-other-pinned-window)
;(global-set-key (kbd "C-M-]") 'other-frame)

(if (functionp 'yisp-prev-screen)
    (global-set-key (kbd "M-P") 'yisp-prev-screen))
(if (functionp 'yisp-next-screen)
    (global-set-key (kbd "M-N") 'yisp-next-screen))
